inherited FrmCadPlano: TFrmCadPlano
  Left = 348
  Top = 196
  Caption = 'Cadastro de Plano'
  ClientHeight = 329
  ClientWidth = 522
  OldCreateOrder = True
  PixelsPerInch = 96
  TextHeight = 13
  inherited Panel1: TPanel
    Top = 292
    Width = 522
  end
  inherited Panel2: TPanel
    Width = 522
    Height = 292
    inherited Panel3: TPanel
      Width = 520
      Caption = 'Cadastro de Planos'
      inherited GroupBox1: TGroupBox
        Left = 441
      end
    end
    inherited Panel4: TPanel
      Width = 520
      Height = 250
      object Label1: TLabel [0]
        Left = 24
        Top = 8
        Width = 33
        Height = 13
        Caption = 'C'#243'digo'
        FocusControl = DBEdit1
      end
      object Label2: TLabel [1]
        Left = 160
        Top = 8
        Width = 48
        Height = 13
        Caption = 'Descri'#231#227'o'
        FocusControl = DBEdit2
      end
      object Label3: TLabel [2]
        Left = 24
        Top = 56
        Width = 63
        Height = 13
        Caption = 'Observa'#231#245'es'
      end
      object Label4: TLabel [3]
        Left = 24
        Top = 136
        Width = 24
        Height = 13
        Caption = 'Valor'
      end
      object Label5: TLabel [4]
        Left = 180
        Top = 136
        Width = 104
        Height = 13
        Caption = 'Valor por Dependente'
      end
      object Label6: TLabel [5]
        Left = 336
        Top = 136
        Width = 85
        Height = 13
        Caption = 'Valor de Inscri'#231#227'o'
      end
      object Label7: TLabel [6]
        Left = 24
        Top = 184
        Width = 31
        Height = 13
        Caption = 'Conta:'
      end
      object Label8: TLabel [7]
        Left = 254
        Top = 184
        Width = 50
        Height = 13
        Caption = 'SubConta:'
      end
      inherited SbHints: TStatusBar
        Top = 227
        Width = 512
      end
      object DBEdit1: TDBEdit
        Left = 24
        Top = 24
        Width = 134
        Height = 21
        TabStop = False
        DataField = 'PLA_CODIGO'
        DataSource = DtSrc
        Enabled = False
        ReadOnly = True
        TabOrder = 1
      end
      object DBEdit2: TDBEdit
        Left = 160
        Top = 24
        Width = 345
        Height = 21
        DataField = 'PLA_DESCRICAO'
        DataSource = DtSrc
        TabOrder = 2
      end
      object DBMemo1: TDBMemo
        Left = 24
        Top = 72
        Width = 481
        Height = 57
        DataField = 'PLA_OBSERVACOES'
        DataSource = DtSrc
        TabOrder = 3
      end
      object DBEdit3: TDBEdit
        Left = 24
        Top = 152
        Width = 146
        Height = 21
        DataField = 'PLA_VALOR'
        DataSource = DtSrc
        TabOrder = 4
      end
      object DBEdit4: TDBEdit
        Left = 179
        Top = 152
        Width = 146
        Height = 21
        DataField = 'PLA_VALORDEPENDENTE'
        DataSource = DtSrc
        TabOrder = 5
      end
      object DBEdit5: TDBEdit
        Left = 336
        Top = 152
        Width = 146
        Height = 21
        DataField = 'PLA_VALORINSCRICAO'
        DataSource = DtSrc
        TabOrder = 6
      end
      object DBEditConta: TDBEdit
        Left = 24
        Top = 200
        Width = 43
        Height = 21
        DataField = 'PLA_CONTA'
        DataSource = DtSrc
        TabOrder = 7
        OnExit = DBEditContaExit
      end
      object DBEditSubconta: TDBEdit
        Left = 253
        Top = 200
        Width = 43
        Height = 21
        DataField = 'PLA_SUBCONTA'
        DataSource = DtSrc
        TabOrder = 8
        OnExit = DBEditSubcontaExit
      end
      object btnContas: TBitBtn
        Left = 69
        Top = 200
        Width = 21
        Height = 21
        Caption = '...'
        TabOrder = 9
        OnClick = btnContasClick
      end
      object btnSubconta: TBitBtn
        Left = 298
        Top = 200
        Width = 21
        Height = 21
        Caption = '...'
        TabOrder = 10
        OnClick = btnSubcontaClick
      end
      object stConta: TStaticText
        Left = 91
        Top = 200
        Width = 160
        Height = 21
        AutoSize = False
        BorderStyle = sbsSingle
        TabOrder = 11
      end
      object stSubconta: TStaticText
        Left = 320
        Top = 200
        Width = 185
        Height = 21
        AutoSize = False
        BorderStyle = sbsSingle
        TabOrder = 12
      end
    end
  end
  object sp_wrapper: TSQLStoredProc
    MaxBlobSize = -1
    Params = <
      item
        DataType = ftInteger
        Name = 'NEW_VALUE'
        ParamType = ptOutput
        Size = 4
      end>
    SQLConnection = DtmGeral.ConexaoBanco
    StoredProcName = 'PLA_CODIGO_AUTOINC'
    Left = 425
    Top = 57
  end
  object SQLCl_Planos: TSQLClientDataSet
    Active = True
    CommandText = 'SELECT * FROM PESSOAS_PLANOS WHERE PLA_CODIGO = :PLA_CODIGO'
    Aggregates = <>
    Options = [poAllowCommandText]
    ObjectView = True
    Params = <
      item
        DataType = ftInteger
        Name = 'PLA_CODIGO'
        ParamType = ptInput
        Value = 0
      end>
    DBConnection = DtmGeral.ConexaoBanco
    Left = 217
    Top = 41
    object SQLCl_PlanosPLA_CODIGO: TIntegerField
      FieldName = 'PLA_CODIGO'
      Required = True
    end
    object SQLCl_PlanosPLA_DESCRICAO: TStringField
      FieldName = 'PLA_DESCRICAO'
      Required = True
      Size = 60
    end
    object SQLCl_PlanosPLA_OBSERVACOES: TMemoField
      FieldName = 'PLA_OBSERVACOES'
      BlobType = ftMemo
      Size = 1
    end
    object SQLCl_PlanosPLA_VALOR: TFMTBCDField
      FieldName = 'PLA_VALOR'
      Required = True
      Precision = 15
      Size = 3
    end
    object SQLCl_PlanosPLA_VALORDEPENDENTE: TFMTBCDField
      FieldName = 'PLA_VALORDEPENDENTE'
      Required = True
      Precision = 15
      Size = 3
    end
    object SQLCl_PlanosPLA_VALORINSCRICAO: TFMTBCDField
      FieldName = 'PLA_VALORINSCRICAO'
      Precision = 15
      Size = 3
    end
    object SQLCl_PlanosPLA_CONTA: TStringField
      FieldName = 'PLA_CONTA'
      Required = True
      Size = 3
    end
    object SQLCl_PlanosPLA_SUBCONTA: TStringField
      FieldName = 'PLA_SUBCONTA'
      Required = True
      Size = 3
    end
  end
end
